program CommandLine;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Core.Parser in 'Core.Parser.pas';

procedure TestTCommandLine;
var
  p: TParser;
begin
  p := TParser.Create;

  p.QuoteChar := '"';
  p.Prefix := '-';
  p.Init;

  FreeAndNil(p);
end;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    TestTCommandLine;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
